* Елка.

присвоить черный 1 зеленый 3 
присвоить $ЦветКисти [зеленый]
рисовать треугольник 300 100 250 200 350 200
рисовать треугольник 300 200 250 300 350 300
рисовать треугольник 300 300 250 400 350 400
присвоить $ЦветКисти [черный]
рисовать прямоугольник 290 400 310 500